home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / sosu.bas < prev    next >
BASIC Source File  |  1995-01-31  |  340b  |  14 lines
  1. 10 CLS
  2. 20 PRINT "nまでの素数を求める                                    解答時にＰＦ１でメニュー"
  3. 30 INPUT "n=",N
  4. 40 FOR A=2 TO N
  5. 50  B=2
  6. 60   IF B>SQR(A+1) THEN 100
  7. 70   IF A-INT(A/B)*B=0 THEN 110
  8. 80  B=B+1
  9. 90  GOTO 60
  10. 100  PRINT A;
  11. 110 NEXT A
  12. 120 C$=INKEY$ : IF C$="" THEN 120
  13. 130 IF C$="1" THEN RUN "MENU.BAS" ELSE GOTO 10
  14.